home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
pct3jr1.mrg
< prev
next >
Wrap
Text File
|
1985-06-03
|
3KB
|
66 lines
101 'PCT3JR.MRG VERSION 1.1 03/14/84 COPYRIGHT (C) 1984 MICHAEL EORGOFF
110 CLOSE:DEFINT A-Z:OPTION BASE 1:ON ERROR GOTO 9000:GOSUB 64010
605 IF LOF(1)<128 THEN GOSUB 64040
635 IF RC THEN GOSUB 64240
720 IF PSE THEN GOSUB 64150
2705 GOSUB 64440:IF RC THEN F2NAME$=RCV$:GOSUB 64480
2710 GOSUB 64150:RETURN
3450 GOSUB 2715:GOSUB 2800:GOSUB 64150:GOTO 515
3595 IF EX=19 THEN GOSUB 64440:F2NAME$=FIL$:GOSUB 64480:ELSE CLOSE #3:OPEN FIL$ FOR INPUT AS #3
3810 SOUND 440,2:GOSUB 64440:F2NAME$=DUMP$:GOSUB 64480:MSG$=" Appending to "+DUMP$+" at "+TIME$:GOSUB 2600
3820 SOUND 660,2:BEEP:GOSUB 2705:GOSUB 2800:GOSUB 64150:LOCATE ROW,COL:GOTO 515
5415 DATA"Strip #1",0,Replace #1,0,"Strip #2",0,Replace #2,0,"Strip #3",0,Replace #3,0,Pacing p=,,Logged drive,"A:",Margin width,70
5420 DATA Screendump file,"A:SCRNDUMP.PCT",Redial delay,20,Connect prompt,CONNECT
64000 '
64010 DIM F2BUF$(5):F2BIU=5:GOSUB 64020:DPSE=0:COFF=0
64020 FOR F2BI= 1 TO F2BIU:F2BUF$(F2BI)="":NEXT:F2BIU=1:RETURN
64030 '
64040 IF NOT PSE THEN PRINT #1,XF$;:PSE=-1
64050 RETURN
64060 '
64070 DPSE=-1:GOSUB 64040 'SET DISK PAUSE, XOFF
64080 '
64090 'WAIT UNTIL NO MORE CHARS COME IN COM PORT
64100 WHILE NOT COFF:GOSUB 64130:WEND:RETURN
64110 '
64120 'CHECK IF MORE CHARS ARE COMING IN COM PORT
64130 COMFRE=LOF(1):SOUND 32767,5:SOUND 32767,1:IF COMFRE<>LOF(1) THEN COFF=0:RETURN ELSE COFF=-1:RETURN
64140 '
64150 IF NOT PSE THEN RETURN
64160 IF NOT EOF(1) THEN RETURN ELSE IF DPSE THEN GOTO 64280
64170 PSE=0:COFF=0:PRINT #1,XN$;:RETURN
64180 IF NOT PSE THEN RETURN ELSE GOSUB 64170:RETURN
64190 '
64200 'ROUTINE TO UP BUFFER IN USE(F2BIU) AND DECIDE IF TIME TO XOFF
64210 F2BIU=F2BIU+1:IF F2BIU<3 THEN RETURN ELSE GOSUB 64040:DPSE=-1:RETURN
64220 '
64230 'ROUTINE TO PACK UP BUFFERS FROM A$ FOR WRITING TO FILE #2
64240 F2BL=(255-LEN(F2BUF$(F2BIU))):IF F2BL=0 THEN GOSUB 64210:F2BL=255
64250 IF F2BL>=LEN(A$) THEN F2BUF$(F2BIU)=F2BUF$(F2BIU)+A$:GOTO 64280
64260 F2BUF$(F2BIU)=F2BUF$(F2BIU)+LEFT$(A$,F2BL):GOSUB 64210:F2BUF$(F2BIU)=MID$(A$,F2BL+1)
64270 'CHECK IF NEED TO WRITE TO DISK
64280 IF NOT DPSE THEN RETURN
64290 '
64300 'CHECK IF LAST BUFFER HAS BEEN USED
64310 IF F2BIU>=5 THEN GOSUB 64100:GOSUB 64400:IF EOF(1) THEN GOTO 64360 ELSE RETURN
64320 '
64330 IF NOT EOF(1) THEN RETURN
64340 GOSUB 64130:IF NOT COFF THEN RETURN ELSE IF LOC(1) THEN RETURN
64350 GOSUB 64400
64360 DPSE=0:GOSUB 64150
64370 RETURN
64380 '
64390 'WRITE F2BUF$ AND RESET
64400 FOR F2BI=1 TO F2BIU:PRINT #2,F2BUF$(F2BI);:NEXT:GOSUB 64020:RETURN
64410 '
64420 'CLOSE #2
64430 IF (0=LEN(F2BUF$(1))) THEN RETURN ELSE GOSUB 64400:RETURN
64440 GOSUB 64070:GOSUB 64430
64450 CLOSE #2:F2NAME$="":DPSE=0:GOTO 64490
64460 'OPEN FILE #2
64470 OPEN F2NAME$ AS #2:GOTO 64490
64480 OPEN F2NAME$ FOR APPEND AS #2:GOTO 64490
64490 GOSUB 64020:RETURN
64500 'END